88 
. 
S38388328388838 


B 1 
**F ILE**1D**SORRMSIO : 


SSSSSSSS 000000 RRRRRRRR RRRRRRRR MM MM SSSSSSSS IIIIII 000000 
SSSSSSSS 000000 RRRRRRRR RRRRRRRR MM SSSSSSSS III! 000000 
SS 00 0O RR RR RR RR MMMM MMMM SS II 00 00 
SS 00 0O RR RR RR RR MMMM MMMM SS I] 00 00 
SS 00 00 RR RR RR RR MM SS I] 00 00 
SS 00 00 RR RR RR RR MM MM MM SS II 00 00 
SSSSSS 00 00 RRRRRRRR RRRRRRRR MM MM SSSSSS II 00 00 
SSSSSS 00 00 RRRRRRRR RRRRRRRR MM MM SSSSSS II 00 00 
SS 00 00 RR RR RR RR MM MM SS II 00 00 
SS 00 00 RR RR RR RR MM MM SS II 00 00 
SS 00 00 RR RR RR RR MM MM SS I] 00 00 cove 
SS 00 00 RR RR RR RR MM MM SS I] 00 00 eee 
SSSSSSSS 000000 RR RR RR RR MM MM SSSSSSSS III! 000000 eoee 
SSSSSSSS 000000 RR RR_ RR RR MM MM SSSSSSSS HIII1 000000 cove 
LL IIIII] SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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16-Sep “19 382 98: 18: a: tSort 2.SRCJSORRMS10.832;1 vee (1) 
MODULE SORSRMS_I0 ( 
IDENT = 'v04-000' ! File: SORRMSIO.B32 Edit: PDG3026 


~ 


BEGIN 


LR RRE ARERR RARE RARER EERE AERA EE AEE AAA AAA RARER 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
® 
+ 
& 
: ® 
iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ix INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. . 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
5d 
® 
® 
we 
© 
® 
* 
® 


!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


MMM 323 SSS SS OOOO OOO 


PWN OOONOUS WN OO DNAUSWN “OO ONOUS WN OOONOULS NN 


iw DIGITAL ASSUMES NO RESPONS sie FOR THE USE OR RELIABILITY OF ITS 


I Y 
'® SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


'® 
Ve ERRATA 
' 


i] 
' 
' 
' 
i ABSTRACT: 

This module contains PMS 1/0 support. 
ENVIRONMENT: VAX/VMS user mode 

AUTHOR: Peter D Gilbert, CREATION DATE: 07-Jan-1982 
MODIFIED BY: 

i 
1 
! 
1 
' 
1 
' 
i] 
' 
t 
1 
| 
{ 
1 


103. $17 Original 
16 set the OFP FOP flag. Also, if the output file conngs be in 
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5 
6 Bee” t file format, clear the PRN flag. PDG 13-Dec-198 
H 103-017 af CoM AINyeS before calling callback routine in’ SORSSOPEN. 
9 03-018 Added protection XAB. PDG ponpecet0¥e 
050 03-019 Don't allocate UBF unless there are files. 3-Feb-1 385 
051 T03-020 Don't al leu FABSC_IDX on he SCREATE. PDG 3-Nar-198 
O36 103-021 gtight change to Tile protection. PDG 11-May-1983 
05 03- Recover on RMS$_FLK errors on input. PDG 19-May-1983 
bee T03- ey? ~~ 5 138 efault protection, then add extra ypestrictions. 
B28 T03-024 Law rg okcluded middle mishap. Non-fixed-format files are 
5 varying. PDG 15-Aug-1983 


| 
i FACILITY: VAX-11 SORT/MERGE 
| 
| 
| 
| 
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specter _10 1B-5e gep- 138% 00: i$: 6 AX-11 Bliss-32 V4.0-74 Page 2 


V 14-Sep-19 SORT32.SRCJSORRMS10.832;1 (1) 
; 8 6038 , 3 703-025 pogseeesy FILE NAME assumes NAM$B_RSL Re NAM$B_ESL are zero 

: 9 059 1! before the OPEN or CREATE. PDG 10-No 

3 ¢ opee ! T03-026 Also Set the UPI bit on second SOPEN. areal PDG 9-Apr-1984 


on 


Wwro 


LIBRARY 253 elle STARLET’; 
REQUIRE *SRC$:COM' 


FORWARD ROUTINE 
A RL: 


SORSSOPEN: CAL~CTXREG, 
SORSSRFA_ACCESS: NOVALUE CAL ACCESS; 
EXTERNAL ROUTINE 

rbtrngg! A _NAME : yy LE TKREG, NOVALUE, 


WAWIWNINO 


M—OOONOUnS 


~~ 


SORTS2°SREISORRMS I 


Cale longest record lengt 
Open input and outpys f 
Access a record by R 


Allocate storage 
Issue error diagnostics 


F 12 
aa$ep-198e 19:10:08 — ESGatd2eSneSsonansio.eso; 1 Page 3} 


+ 


scans" 


ad 143 1 ROUTINE CALC_LRL 
i £ 145 1 FAB: REF BLOCKE BYTE], ; 
; 7 138 1 FHC: REF BLOCKL,BYTE : 
; 80 147 1 ): CAL_CTXREG = ; 
ee Bi : 
; es 130 ; FUNCTIONAL DESCRIPTION: 3 
: BS 126 1! This routine calculates the longest record length of a file ; 
oe 1 1} based on the information in the FAB and XABs. ; 
: . ! : ! Note that for VFC format files, this does not include the VFC area. : 
; 89 o136 | | FORMAL PARAMETERS: ; 
> 91 138 1! FAB.ra.v Pointer to FAB ‘ 
3 1? ! FHC.ra.v Pointer to XABFHC : 
; 34 O16) 1 { IMPLICIT INPUTS: 
5 BRT] 3 
; 38 g16s | i IMPLICIT OUTPUTS: 
oe 8 | ie ; 
; 198 g169 | { ROUTINE VALUE: ; 
> 104 0171 1 The largest record length for this file. If it can't ; 
; 44 8178 : } be determined from the FAB and XAB, returns zero. : 
: 107 0174 1 | SIDE EFFECTS: 
; 108 0175 1 | ; 
3; 109 0176 1! NONE : 
: 110 0177 1 i-- 
Aan. 6179 PI TERAL ; 
; 11$ 0180 BKS_OVER= 24; ! Bucket overhead for indexed file. : 
: 115 O18 LOCAL ; 
: 116 01 : LRL; ! Best guess at longest record length. : 
Pie He 7 
: 120 1 ! Determine the Length of the longest record in the file (not including the : 
; 131 O188 } VFC area. : 
; 158 190 i The LRL value does not include the VFC area, unless the file is relative. : 
; 126 191 : The MRS includes the VFC area. ‘ 
; : 5 136 ; The BKS and BLS include the VFC area. : 
i 139 194 if .FHCCXABSW_LRLJ NEQ 0 : 
: 159 196 EN BEGIN ; 
; 130 199 LRL = .FHCCXABSW LRLI; : 
s 931 138 IF .FABCFABSB_ORG) EQL FABSC_REL ‘ 
: 132 1 THEN ; 
| 
| 
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vou 1 =30P 71382 90:78:28 ebRT $2 se SORRMS10.B32;1 _ (33 V 
> 133 LRL = .LRL = .FABLFA ; 
: 9 a = .LRL ABLFABSB_FSZ] | 
> 135 ¢ ELIF 
; ; Tren’ ABCFABSY_MRS NEQ 0 
: 8 5 eure = .FABCFABSW_MRS] - .FABLFABSB_FSZ) 
; 140 oF nen’ ABCFABSB_BKSI NEQ 0 
: 14¢ 03 eset = (,FABCFABSB_BKS] * COM_K_BPERBLOCK) - BKS_OVER 
: 144 1} LRL = .FABLFABSW_BLSJ; 
og i 
> 14 0214 RETURN .LRL; ! ‘ 
ame yt este § 3h, Return calculated value 


-TITLE SORSRMS_I0 
-IDENT \v04-000\ 


-EXTRN SORSSBEST_FILE_NAME 
-EXTRN SORSSALLOTATE, SORSSERROR 


-PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 
0004 00000 CALC_LRL: 
WORD 


: Save R2 : 0143 
51 04 AC 00 00002 MOVL FAB, R1 : 0198 
50 08 AC DO 00006 MOVL FHC. RO > 0194 
0A AO 8 0000A TSTW = 10¢RO) : 
0B 1 90000 BEQL ~=sés«sd1$ ; 
50 OA A 3¢ OO0F MOV2WL 10(RO), LRL : 0197 
10 1D Al 91 00013 CMPB g(r), #16 : 0198 
OA 13 0001 BEQL $ ; 
04 00019 RET : 0200 
36ST 8 OO1A 1$ TSTW 4(R1) : 0203 
oc 1 9010 BEQL $ ; 
50 6 Al 3¢ O1F MOV2WL 54(R1), LRL : 0205 
38 F Al 9A 000 ; 2$ HOV ZBL 63(R1). R2 ; 
5 52 if 2 i SUBL R2, LRL : 
3E OA 3 6 B 3$ TSTB 62(R1) : 0207 
OD 1 99 BEQL ; 
3E OA 9A MOVZBL 62(R1), R : 0209 
52 09 8 ASHL # + R : 
E8 A2 3E 8 MOVAB -24(R25, LRL : 
50 3c. 3c 0030 4$ MOVZWL 60(R1), LRL : 021) 
4 00041 RET + 0215 


3; Routine Size: 66 bytes, Routine Base: SORSRO_CODE + 0000 
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GLOBAL nbs SORSSOPEN 


LRL_OUT_RIN, ! Routine to calculate COM_LRL_OUT 
LRL_OUT_PRM ! Parameter to LRL_OUT_RIN 
): CAL_CTXREG = 


'e+ 
i 


i FUNCTIONAL DESCRIPTION: 


This routine opens the input file(s) and the output file. 
It also verifies some attributes of the files. 


Note that the input files are not opened in PASS_FILES. We delay 
opening them until after the user has been able fo specify whether 
errors are to be signalled or returned. 
FORMAL PARAMETERS: 
CTX Longword pointing to work area (passed in COM_REG_CTX) 
IMPLICIT INPUTS: 
The DDBs for the files have been initialized. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status code. 
SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 
Pm = COM_REG_CTX: REF CTX_BLOCK; 

DDB: REF DDB_BLOCK, ! Pointer to DDB for output file 
' Longest record length 

ALQ, ' Total allocation quantity 
FAB: SFAB_DECL, ' FAB block 
NAM: ECL VOLATILE, ! NAM block 
FNA: BLOCRCNAMSC_MAXRSS, Byte, ! File name string area 
FHC: BLOCKCXABSC FHCLEN, BYTE), ' File header control block 
XABPRO: $XABPRO_DECC, ' XAB for file protection 

: . ! Protection 
STATUS; ! Status 


Initialize the longest record length 


SORT32.SRCJSORRMS10.8 


12 
sorsans 10 yé-Bep-1964 00:56:22 yayett Lieg-32 ve.0-742 
07 LRL = 0; ' Start the maximum low 


! Initialize the accumulative input file allocation, using the default 
for no input files. 

TOT_ALQ = 0; 

If .CTXCCOM_NUM_FILES) EQL 0 THEN TOT_ALQ = DEF_FILE_ALLOC; 


If the output file is in VFC format, it's ree value is computed by: 

If user specified FSZ, then the user-specified FSZ 

Otherwise the FSZ of the first input file 

(if the FSZ of the first input file is 0, RMS will default to 2) 

The storage we require in an internal format node for the VFC area is: 

For Record sorts: Min( Max(input-FSZ), Max(output-FSZ) ) 

Non-Record sorts: 0 (we don't need the VFC area, or we get it later) 
If there are no input (output) files, eng corresponding FSZ equals 0. 
This value is computed in CTXCCOM_MINVFC). 


i] 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! The size of the storage we must allocate to hold the VFC area is: 
! If Max(input-FSZ) = 0, then 0 (and no storage allocated) 

: If Max(output-FSZ) = 6, then 0 (and no storage allocated) 

' Qtherwise Max( Max(input-FSZ), Max(output-FSZ) ) 
This value is computed in CTXCCOM_MAXVFC]. 
' 

i 

C 


The calculations are done as follows: 
Compute Max(input-FSZ) into CTXCCOM_MAXVFC] 


TXCCOM_MAXVFC] = 0; ! Start the maximum low 
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! Initialize the FAB (file access block), the NAM (mame block), and 
the FHC XAB (file header control extended attributes block). 


SDOOSOGDOOOS 0000000000009 0909090909 090908 INI NIN 
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ie SFAB_INIT( 

P 031 FAB = FABCBASE_]J, ! FAB block 
4 P 031 NAM = NAM(BASE_J, ! NAM block 
ry P 031 XAB = FHCCBASE_J, ! FHC block 
4 P 031 : FNA ! File name area (set below) 
48 P 031 : FNS ' File name area size (set below) 
49 P 031 FAC = GET, ! File access 
50 P 1 SHR = GET ! Sharin 
51 P 031 DNA = UPLIT BYTE(STR_DEF_EXT), ! Default extension is .DAT 
25 P $18 DNS = ZCHARCOUNT(STR_DEF_EXT), ! Default extension is .DAT 
5 P 031 RFM = VAR, ! Needed if no input files 
re 0 RAT = CR); ! Record attributes 

5 1 IF gC TXCCOM_SORT_TYPE] NEQ TYP_K_TAG 

§ : FABCFABSL_FOP] = FABSM_SQ0; ! Sequential access only if not tag 
58 P 4 SNAM_INIT( 
59 P 5 RAM = NAMCBASE_), ! NAM block 
60 P § ESS = ZALLOCATION(FNA), ' Expanded name string size 
61 p ESA = P ' Expanded name string area 
o¢ P 3 RSS = ZALLOCATION(FNA), ' Resultant name string size 
6 RSA = FNALBASE_J); ' Resultant name string area 
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65 
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1b-Beo-1986 00:56:22 YaNett BLieg32 v4. 0-742 


SXABFHC_INIT( 

XAB™= FHCCB Base Jj ! XABFHC block 

NXT = XABPROLBASE_)); 
PRO = 0; ! No protection restrictions yet 
Loop for each input file 
be = .CTXCCOM_INP_DDB); ! Point to first DDB 
DECR ach hon .CTXCCOM_NUM_FILESJ-1 TO 0 DO 

LOCAL 


! Advance to next DDB. 
! The first input file is opened last, so the output file will use 
the file characteristics of the first input file. 


be = DDBCDDB_NEXT); 
IF DDBCBASE_) EQL 0 THEN DDB = .CTXCCOM_INP_DDB); 


SXABPRO_INIT(XAB = XABPROCBASE_)); 

'¢ 

' The following information is needed: 
i FABSB_RFM Record format 


! FABSB_FSZ Length of the VFC area 
' FABSL_ALQ File allocation 
FAB SOPEN' $CLOSE 
RAB $GET 
! NAMS$B_RSL Resultant file name string lengt 


' NAMSL-RSA Resultant file name string address 
' FHCXAS Used to calculate the LRL 


' 
' 
' 
' 
' 
' 
' 
; RAB Accessing the file by RFA for tag sorts 
' 
; Thus, much of the storage may be reclaimed. 
' 
i Actually open the input file 
NAMCNAMSB_RSL] = 0; 
= : 
-1FIJ = 0; 
= .VECTOR spoetbne: “WARES 9 E 
-VECTORE DDBCDDB_NAME : 
= 


“FNA 
> SOPENCFAR FAB 


Get the best file name string available 
SORSSBEST_FILE_NAME(FABCBASE_}, DDBCDDB_NAME); 
IF .FABCFABSL_STS) EQL RMSS_FLK 
THEN 

BEGIN 


K 12 
SORSRMS_10 16-Sep-1984 00:36: AX-11 Bliss-32 V4.0-74 
y0e 2008 1o=gee 138i 90:78:28 SORT32.SRC SOARMSI0.03551 
; 321 7 4 FABCFABSB_SHR] = range Fa PUT OR FABSH_GET OR FABSM_DEL OR FABSM_UPD 
: 5 § 4 FABCFABSV_NAM] = TRU asthe: 
; 324 0 4 FABLFABSB~ ENS = VECTOR DOBEDDB_ NAME], 0 1: 
; 325 91 4 FAB FABSL OENA VECTOR DDBLDDB-NAME], 1 
; $ 3 5 IF SOPEN(FAB = FAB BASE_J) 
3 935 4 THEN 
; 328 94 BEGIN 
: 329 95 SORSSERR 
; 330 %6 Sons SHR OPENIN AND NOT STSSM_SEVERITY OR STSS$K_WARNING, 
: 331 0 3 ; , DBBCDDB_NAME], RMS$_FLK, OJ; 
: ¢ 38 4 AB EABSB_ SHR] = FABSM_GET; 
> 334 400 4 ABLFABSV_NAM] = FALSE: 
go : 
: f 0408 IF t . .FABLFABSL_STSJ 
: 339 0405 RETURN SORSS RROR(SORS SHR_OPENIN DDBCDDB_NAME], 
> 340 0406 .FABLFABSL_STSJ, .FAB ABS _$§1VJ); 
2 ke 
; “§ 8 t4 } If this is not a VFC format file, clear the FSZ field 
; 45 0411 if ;FABCFABSB_RFM] NEQ FABSC_VFC 
: 347 $018 FABLFABSB_FSZ) = 0; 
: 305 0418 
; 29 bei$ : Calculate largest record Length 
; 38 0418 T = CALC_LRL(FABLBASE_J, FHCCBASE_}); 
; 23 0419 IF .LRL EQL 0 
: 22 Be 1 on | ! First time here, just use length 
: 357 04 5 .T NEQ .LRL 
| Bice Bag a 
: 360 426 4 T GTRU .LRL THEN LAL = .T; 
; 361 " i 4 txt COM_ VAR) = TRUE; ! Variable Length records 
; j 0429 me 
: 365 0% ? Check for VFC format input files. 
: e 4 ; F .CTXCCOM_MAXVFC) LSSU .FABCFABSB_FSZ) 
; 69 438 CTXECOM_MAXVFC) = .FABLFABSB_FSZ]; ! Maximize COM_MAXVFC 
: 371 4 
3 g iy 1 Most files are varying in Length 
; 374 440 if .FABCFABSB_RFM) NEQ FABSC_FIX 
: 375 441 THEN 
3 e oe CTXCCOM_VAR] = TRUE; ' Variable-length records 
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18-56 -1984 00:36: AX-11 Bliss-32 V4.0-74 
1 ~8ep-19 4 00:76:28 SORT32.SRCJSORRMSIO.B 3.1 
! Get the allocation quantit 


Note that we naively ignore the complexities of indexed files. 

if eSLocKt FABCFABSL_DEV], DEVSV_RND; ,BYTE) 
BEGIN 
FHCCXABSL_EBK] should be a better estimate than FABCFABS$L_ALQJ 
ToT aLa = ,TOT_ALQ + .FHCCXABSL_EBK); 


ELSE 
BEGIN 


The input file is not on a random access device. 
LOCAL 
IF .CTXECOM_SORT_TYPE] NEQ TYP_K_RECORD 
RETURN SOR$_BAD_TYPE; ! Only random access devices have RFAs 
IF (ALQ = .FHCCRABSC_EBKJ) EQL 0 THEN 
IF (ALQ = .FABLFABSL_ALQJ) EQL 0 THEN 
IF .BLOCKC FABLCFABSL_DEVJ, DEVS$V_TRM; ,BYTE] THEN 
ALQ = DEF_TRM_ALCOC 


SE 
ALQ = DEF_FILE_ALLOC; 
TOT _ALQ = .TOT_ALQ™+ .ALQ; 


SRAB_INIT( 
RAB = poses RAB+BASE_J, 
FAB = FABLBASE_J, 
MBC !' May be set below 
MBF ' Set below 
RAC = SEQ, 
RHB = ' Allocated Later 


ROP = <RAH,LOC,MAS>); 
If organization is sequential and the device is disk use MBC and MBF 
if there are more than 8 blocks available. Otherwise use MBF = 2. 
272 Is this the best way to calculate these values? 


F de ae ORG] NEQ FABSC_SEQ OR 
-BLOCK re L_DEV], BEV$v_SQD; ,BYTE] OR 


es NOT .BLOCKE FABLFABSL_OEVJ, DEV$V_RND; ,BYTE) 
1 gp DBEDDB_RAB+RABSB_MBF J = MAX_MBF 
BEGIN 
DDBLDDB.RABsRABSB. MBC = MAX_MBC; 
DDB~RAB+RABSB_MBF) = MAX~MBF ; 


DDB 
END 
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SORSRMS_10 16-Sep-1984 AX=11 Bliss-32 V4.0-74 Page 11 SOF 
v0e+008 2: =tep- 138 99: i$: 8 SORT32.SRCJSORRMS10.B32;1 9° a) vOé 
; 435 501 

3 : $ ¢ Connect the RAB to the FAB 

3; 4358 04 STATUS = FL PBECTIAAS © DDBCDDB_RAB+BASE_)); 

; 439 505 IF NOT .STATUS 

; 440 506 THEN” 

; 441 507 RETURN sOTDBEDDB RABSR SHR_OPENIN, DDBCDDB_NAME], 

; 4 308 BCDDB_RAB+RABSL~STSJ, * pDBLDOB _RABTRABSL_STVJ); 
; Pry 050 Make the protection even more prohibitive, 

3 rr | b21¢ PRO = .PRO OR .XABPROCXAS$W_PROJ; 

3; «44 51 

: 4468 0514 Save the IFI and FOP 

; 449 0515 

; 450 8218 be DDB ~}fhl = = .FABCFABSW_IFIJ; 

; 451 051 DDB DDB_ FOP FAB FABSL_F OP]; 

Fs $26 0518 END; 

3 45 0519 

: 454 p250 

3; 455 0521 ' Store the LRL value into the common context area. 

3; 456 05 ¢ i If the LRL was specified by the user, use that 

3; 457 05 i If the LRL was not pes | Lreee use the value lt the input files. 
; 458 0524 i Check the value of t 

3 re 82 5 Note that we do allow a calculated LRL to be zero. 

: 461 05 - if .CTXCCOM_LRLJ NEQ 0 ' Did the user specify a value? 
; 46 3 8 THEN 

; 46 529 0 ! Yes, leave it alone 
: 464 0530 ELSE 

3; 465 0531 BEGIN 

: 46 b28§ CTXCCOM_LRLJ = .LRL; ! No, use our value 

; 46 053 IF .LRL~GTRU MAX_REFSIZE 

3; 468 bee THEN 

3 469 0535 RETURN SORSSERROR(SOR$_LRL_MISS); 

: 470 0536 2 ND; 

3; «6471 0537 

3; «47 0538 

: an e344 Allocate space for the user buffer, and set the UBF and USZ. 

3; 475 0541 IF .CTXCCOM_NUM_FILES] NEQ 0 

3; 476 b2e6 THEN 

3 477 054 BEGI 

3; 478 544 LOCAL 

3; 479 545 SZ, 

; 480 278 Fs pee BLOCK: 

; 481 054 USZ = CTX C LJ - CTXCCOM_MAXVF CI; 

; 48 0948 UBF = SORS ALLOCATE. (us2); 

’ =. 

3 tbz $388 DECR I FROM OM CCTXECOR, NUA_ FILESJ-1 TO 0 DO 

3; 485 bees 4 BEGIN 

: £86 236 4 DDB pee. RAB+RAB$W_USZ] = .U Sti 

: 468 553 4 DDBED rae UBF ie = UBFCBASE_); 

; 488 554 4 DDB = att DDB_NERT 

3 489 555 END; 

; 490 228 END; 

3 491 55 
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Figure the number of blocks needed to store all the input records. 
Uf CTXCCOMFILE_ALLOC] NEQ 0 
! User told us; assume he knows best 
ELSE 


CTXCCOM_FILE_ALLOC] = .TOT_ALQ; ! Use the input file allocation 


Be Se ee Se ee Seastee 
S00D00 
LES 

fololelolelolololo) 
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06 If no output file is specified, update the VFC values appropriately. 
04 DDB = ,CTXCCOM_OUT_DDB); 
05 IF ppBtBase 3 Fa. 0 
THE 
BEGIN 
! Max (output-F 


$2) = 0 

! CTX pg? = Min( Max(input-FSZ), vg ages + oT hae »)=0 
CTXLCOM_MAXVFC) = 0 (no storage needed for this) 

¢ ] 


SI EC COR AIWF E = CTXCCOM_MAXVFC) = 0; 

! The size we need in internal nodes, COM_MINVFC, may be needed by the 

' the routine we are about to call. Set jt pessimisticLy (since we don't 
know about the output file yet). 

CTXCCOM_MINVFC] = .CTXCCOM_MAXVFCI; 

' Now that we know the Longest input record length, set the largest yr my 
! record length. Record reformatting, and the sort process determine the 
output record length, so call a routine to calculate COM_LRL_OUT. 

STATUS = CAL_CTXREG(.LRL_OUT_RTN, .LRL_OUT_PRM); 

IF NOT .STATOS THEN RETURN .STATUS; 


+ 


WANA POPUNININIPININIDYD 2 2 2 OO Ow OOOO 
WN — OC OONAUSWN “COONS WN OO 0OnNe 


The only fields in the context area that are set or modified below are: 


=O ODNAUN EWN 0 ODNAOUES WN OCONOULS WN O0O~ 


polo o eof olelolololeloleolololeolelololelololeleieleleloleleleleleloelolo) 
Peal ak MAb Ab Ab Ab Ah Ah ah Ab sb Ab Ab Ab Ab Ab AR AD Ab Ab Ab ah db dh dh db hb hb db db hb hb heh dl 
OOOCOCOOOOOOOO OO WWW WOOO OOO O08 NINN NIN NNN NI OO 


Be Be Oe Se Se Se Be Se Se Fe Se Ss Se Se Se Se Fe Be Se Ge Se Ge Fe Se Se FF Fe Se Se Ge Se Se Ge Se Se FH SH Se SH Se ae Se FH Se Se Fe Se Se Ge Se Se Se Geese teases 


Pe Oat al eal eal eal eal Al Ab Al Ab Al Ab db dh ab ah Ab Ab Abed b dh ds bed bed bed bedb Ab Ab Ab Ab Ah Abed b ah Ab dh Ah Ah ab edb dh bh ah Ab Ab hb hh a 


' 
! 
' 
34 ; COM_LRL_OUT, COM_MINVFC, and COM_MAXVFC 
36 i COM_LRL_OUT may be modified to hold the maximum record size for fixed 
37 6 ! format output files, so that, if a record Length occurs when writing a 
38 6 ! record, we have a correct length that can be used. 
39 0604 : 
40 0605 le 
41 0606 
4g 0607 
rb bees If no output file is specified, return now. 
1 9610 if DDBCBASE_} EQL 0 THEN RETURN SS$_NORMAL; 
47 O62 + 
48 061 ‘ 7 
rs Bele Fall through here only if an output file was specified 
51 061g i The following values (computed above) are used: 
26 93 ; RL Longest record Longe 
5 618 : TOT_ALQ Total input file allocation 
$2 th VFC Size of fixed portion of VFC records 
36 621 ; 
5 6 ¢ ! Initialize the FAB for output 
58 6 : 
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3 $59 0624 FABCFABSW_IFI] = 0; 

: 560 625 FABCFABSB-FAC] = FABSM_PUT; 

; 61 6 $ FABLFABSB_SHRJ] = FABSM_NIL; 

; ¢ 6 FABLFABSB-FNSJ = .VECTOR bOBE DDB _NanE , 0 1: 

; 6 8 8 FABLFABSL_FNA] = ,VECTORL DDBLDDB_NAMEJ, 1 J; 

; 64 06 3 FHCLXABSW-LRLJ = 0; 

: 98 88 1 Set the output file protection, requesting that RMS tell us what it used. 
; 568 06 g $xABPRO INIT(XAB_= XABPRO[BASE_]); 

; $79 06 4 XABPROCRAB$W_PROJ = -1; 

: 4! $e : Initialize the Record Access Block 

; ng P 0638 $RAB_INIT( 

3 574 P 0639 RAB = DDBCDDB RAB+BASE_], 

; 575 P 0640 FAB = FABLBASE_] 

; 576 P0641 2! MBC ' may be set below 

: he P oes 5 RAC = SEQ re 

: 579 P 0644 ; RHE ! Allocated Later 

: 580 0645 ROP = <WBH,MAS>); 

H 382 bees § IF .CTXCCOM_LOAD_FILLJ] THEN DDBCDDB_RAB+RABSV_LOA] = TRUE; 

: 58 0648 

> «584 0649 : ! The ALQ field is used to preallocate a file when it is created. 

3 385 0650 2 : This saves on the number of extends needed when creating the file, 

: 586 0651 2 : and helps ensure that sufficient space will be available for the 

; S87 pees 2 ' output file. However, this may decrease the amount of space available 
> 588 06535 2 ! for work files, and may be inaccurate due to record selection, or INDEX 
; 589 0654 2 ! or ADDRESS sorts. 

; 590 0655 § ! 

; 591 L 0656 %1F TUN_K_OUT_PREALL 

3 236 0657 2 XTHEN 

; 59 0658 j FABCFABSL_ALQ) = .TOT_ALQ; 

: 33¢ 0666 _ 

; 5% bee] 9 Tet 

3 205 BG6¢ 2 } Default the maximum record size now, and allow the user to override it. 
: 599 0664 : i Delay opening the output file until the keys, et.al have been processed, 
; ony R282 because of record reformatting. 

; 606 0t4 FABLFABSW_MRS) = XX'FFFF'; ! Indicate MRS is uninitialized 

: $08 rai ' If address or index sort, default organization to sequential and record 
; # 0671 i format to fixed. Allow RMS to default block and bucket size. 

3 pet ber¢ } The longest output record length was calculated by the LRL_OUT_RIN. 

; 609 067% Lf ONEOF_(.CTXCCOM_SORT_TYPE], BMSK_(TYP_K_ADDRESS, TYP_K_INDEX)) 

: 7 N 

; ei $75 Pa FABSB_ORG] = FABSC_SEQ; ' Sequential organization 

3; 9) $78 FARLFABSB_RFM) = FABSC_FIX; } Fixed length records 

; ers 443 peer ABSS at = FABSM_CR; ! So we can look at it 
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' Set file options. 

' By default, we want to trucate at the end of file, unless the user 
' has explicitly specified an output file allocation, or if the user 
' has specified file options to be used. 

TEF = truncate at end of file 

F 


ABCFABSL_FOP] = .FABCFABSL_FOP] OR FABSM_TEF; 


Copy user-specified output file options into the FAB. 
if .CTXCCOM_PASS_FILES] NEQ 0 
THEN 


PAEAAAAAAAAAAAAAASAAAAAA OH 


WAN NWINIIWIWinonoponoreonefrononon 


SOOWONAUEWN (“OO ONOUE WN OVDONS 


BEGIN 
LOCAL 
P: REF VECTOR; 
P = .CTXCCOM_PASS FILES); 
IF .(.P)<1,15 THEN FABLFABS$B_ORG) = .PC1]; 
IF « (P)<¢i 1 THEN FABLFABSB_RFM] = .P ei: 
IF .(.P)<3,1> THEN FABLFABS$B_BKS) = .PC3J; 
IF .(.P)<4,1> THEN FABLFABSW BLS] = .P 43; 
639 IF .(.P)<5.1> THEN FABLFABSWMRS) = .PC5J; 
64 IF .(.P)<6.1> THEN BEGIN 
641 FABCFABSL_ALQ] = .PC6]; 
b4¢ FAB FABSV-TEF] = FALSE; 
644 IF .(.P)<7,1> THEN FABEFABSL FOP] = +Pt7a: 
645 TF (P)<B, 12 THEN FABLFAB$B_FSZJ = .PC8I; 


!' Set other file options. 

! We want to use deferred writes, regardless of what the user specified. 
! DFW = deferred write 

' $Q0 = sequential access only 

OFP = output file parse 
F 


ABCFABSL_FOP] = .FABCFABSL_FOP) OR FABSM_DFW OR FABSM_SQO OR FABSM_OFP; 


9 
650 


If the user did not specify an MRS value, default it as needed. 
gt Ora fess EQL 2X‘FFFF* 

BEGIN 

If relative or fixed format, we must set MRS. 

} Remember that MRS includes the length of the VFC area 

Af af MOCFABSO ORS) EQL FABSC_REL OR .FABCFABSB_RFM] EQL FABSC_FIX 


BEGIN 
LOCAL 


MAGI AVIMUVIVIW 
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NSS SSS SNS NS NSE PAA AA AAA AAA AAO OOo 
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FABLFABSW_MRS) = .CTXCCOM_LRL_OUT); 

FSZ2 = .FABLFABSB _FSZ); 

IF .FSZ EQL 0 THEN FS2 = ! RMS default 
IF, FABCFABSB_RFMJ EQL F ABéC_VEC 

‘td FABCFABSW_MRS] = .FABCFABSW_MRS] + .FSZ; 


FABLFABSW_MRSJ = 0; 


WAS. IDX = FALSE 
jP ABCFABSE *bke] EQL FABSC_IDX 


PARAS AAAAASAAAO 
C9 0909 09 C9 C908 III NII 


o 


"BEGIN 

IF NOT .FABCFABSV_CIFJ 
THE 

BEGIN 


i We seem to be creating an indexed output file. 
Complain and change the organization. 


SORSSERROR (SORS_IND_OVR AND NOT STSSM_SEVERITY OR STSSK_WARNING) ; 


BEGIN 


i Remember that the caller expects to overlay an indexed file. 
! Default the organization. If the file is created (and is not 
indexed), complain. 


WAS_IDX = TRUE; 
END 


Default the organization 
FABLFABSB_ORG) = 0; 
END; 


! | we file format files must be VFC with FSZ of at least 2 
FABCFABSB_RFM) NEQ FABSC_VFC OR .FABCFABSB_FSZ) LSS 2 
FABCFABSV_PRN] = FALSE; 


CO INNS SSN NNSA AAA AAA AAA MMIII BB PEP 


NOUS WNOO0 


SSN SSNS 


Create the output file 


ONAM: $NAM_DECL; 


FUN $9 DONO WEIN SO OD NAME WIN 9 OO NA NEW 9 ODNOAOUES WN COUOODNOULS WOO 


OOOO 000000900 0000000000 


CONUS WN OOD 
SANs 


vvD 
Ce ne ee ne ee oe oe i ne eww wooo lal ololol ol olaloleol ol eloleol ol ole ola al ol olelololol ol ola) 


WAI AIA AI IIOP OPOPOPONOPUNIPITURIRIWIWIUL ES BB EE BBW EE EEE PWN BRR ED 


; “ONAN AMCBASE ' NAM block 
= ZA ME eeATfonteNAD, ! Expanded name string size 
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; 730 P 0795 ESA = FNACBASE_], ! Expanded name string area | 

: 731 Pp 738 RSS = ZALLOCATION(FNA), ! Resultant name string size 

f i 13 RSA = FNACBASE_J); i Resultant name string area | 

: 734 799 FABCFABSL_NAM] = ONAMCBASE_J; 

: FR Bo; | 

; 4 ; i Use the first input file as a related file name string 

: 739 804 if .CTXCCOM_NUM_FILES] NEQ 0 | 

: 740 805 THEN 

3; 741 506 & BEGIN 

: rs 4 ONAMCNAMSL_RLFJ] = NAMCBASE_]; 

: 7% 0808 4 FAB FABS® DNS) = 0; ! Get rid of the default name string 

; 744 0809 4 FABLFABSL_DNA] = 0; ! Get rid of the default name string 

> 745 0810 END; 

: 746 0811 

: 747 Bai§ ' Create the output file. 

; 748 081 ' 

3 «749 0814 ' Note that we are unwilling to do many checks on the file attributes, 

3; (30 0815 ' since RMS is good at doing that. Also, any checks that are done should 

; 751 0816 ! be done after the create, since the specified file attributes may not be 

; Pg + HEA the same as the actual attributes (due to the CIF option, and defaults). 

; 134 0819 STATUS = SCREATE(FAB = FABLBASE_}); 

: 136 0831 | Get the best file name string available. 

; 38 08 SORSSBEST_FILE_NAME(FABCBASE_], DDBCDDB_NAME]); 

: 760 0825 END; 

: 761 08 § 

3; O55 

s 76 0828 IF .WAS_IDX AND .FABCFABSL_STS) EQL RMS$_CREATED 

> 764 pee? THE 

: 765 0830 BEGIN 

: 766 tt ! ; 

3; 767 8 § ' Oops. We created a sequential file instead of an indexed file. 

3 pee th Inform the caller. 

; 770 0835 SORSSERROR(SOR$_IND_OVR AND NOT STS$M_SEVERITY OR STSS$K_WARNING); 

3 771i 0836 END; 

: 77 0837 

3 7 : 8 

; 46 B20 a NOT .FABCFABSL_STS) 

: 77 841 RETURN SORSSERROR(SOR$_SHR_OPENOUT, 1 RpSC DES MANE). 

> 77 4g -FABCFABSL_STSJ, .FABLFABSL_STVJ); 

- i 

; 781 845 If we really created the file, check the protection 

: g § § if NOT -FABCFABSV_CIF] OR .FABCFABSL_STS) EQL RMSS$_CREATED 

: Ks ‘3 BEGIN 

2 51 ! Verify that the protection is as restrictive as we want it to be. 
| 
j 


y 
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' Leave owner, delete and write protections alone, since we're onl 


i interested in prohibiting processes that couldn't read the original 
} files. If the protection is not resrictive enough, change it. 


oe. : 
: 7 : 
3 19 5 ! 3 
; 791 § LOCAL ; 
; 6 ‘wee WORD; ! Bits we will want to change ; 
3; 794 § M_RELEVANT = %x'5505'; ! W:DEWR,G:DEWR,O:DEWR,S:DEWR ; 
3; 795 0 EXTERRAL ROUTINE ; 
; ree 1 LIBSSET_FILE_PROT: ADDRESSING_MODE (GENERAL); : 
; 7 66 EXTERNAL LITERAL 3 
3 8 Bes LIBS_INVFILSPE; ! Invalid file spec, or file not on disk : 
; 800 8 65 CHANGE MASK = NOT .XABPROCXABSW_PROJ] AND .PRO AND M_RELEVANT; ; 
; 801 508 IF .CHANGE_MASK NEQ 0 ; 
; 80 86 THEN ; 
; 86 868 4 BEGIN : 
; 804 56? & STATUS = LIBSSET_FILE_PROT( ; 
; 805 70 4 DDBCDDB_NAMET, ! File specification string ; 
; 806 0871 4 MASK, ! Mask of bits to change ; 
; 807 ba58 4 PRO); ! Mask of bit values : 
; 808 0873 4 IF NOT .STATUS AND .STATUS NEQ LIBS$_INVFILSPE : 
; 810 0875 4 RETURN SORSSERROR ( ; 
; 811 0876 4 SOR$_SHR_OPENOUT AND NOT STSSM_SEVERITY OR STS$K_WARNING, < 
: Sig 0877 4 1, DBBCDOBB_NAME), .STATUS); 3 
; «81 0878 END; 3 
3: B14 0879 END; 3 
3; 815 0880 3 
; 816 st? ! If this is not a VFC format file, clear the FSZ field ; 
; aif Het : (since RMS does not clear it). : 
; 819 0884 if .FABCFABSB_RFM] NEQ FABSC_VFC ; 
; 820 0885 THEN ; 
; 821 Bane FABCFABSB_FSZ) = 0; 3 
3 Hh 088 3 
; HE ett: : 
; ; 3 44 H Adjust the longest output record length : 
3 896 0891 IF .FABCFABSW_MRS] EQL 0 3 
; 82 +95; THEN 3 
: 828 089 0 ! The only restriction is due to physical Limitations. 3 
; 829 0894 ELSE 3 
: 830 95 BEGIN : 
3 8 39 ! Set the output LRL to the record length for the file. 3 
Z 38 } Thus, we have the correct output length available. : 
; 5 300 : IF .FABCFABSB_RFM) EQL FABSC_FIX : 
5 § CTXCCOM_LRL_OUT] = .FABCFABSW_MRS) - .FABCFABSB_FSZ); : 
3 8 Ht ND; 3 
3 9 3 
3 0 st ; 
; 841 ane More VFC processing : 
3 rk 0908 ! Remember, COM_MINVFC is the size we need in internal nodes, : 
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H te $16 and COM_MAXVFC is the size we need to allocate for RMS. : 
; 4g 91 CTXCCOM MINVFC] = MINUC ,CTXCCOM_MAXVFC], .FABLFABSB_FSZJ ); : 
; At 31¢ IF gC TXCCOM MINVE CJ EaL 6 ; 
: bs aie CTXCCOM_MAXVFC) = 0 ! No storage needed for this : 
: 851 216 CTXECOM_MAXVF CJ = MAXU( .CTXCCOM_MAXVFC], .FABCFABSB_FSZ) ); : 
3 828 091 IF_.CTXCCOMSGRT_TYPE] NEQ TYP_K_RECORD : 
: See 319 CTXCCOM_MINVFC) = 0; ! Not needed in the nodes : 
: 858 $958 i ; 
3 £22 83 : Various checks are not made. : 
: yd 34 8 Do not check converting variable-length input to fixed-length output. : 
: 86 09 8 i If the file was overlaid, do not check that user-specified attributes : 
3 He 44 4 agree with the files existing attributes. : 
; 866 0931 i Don't check for creating an indexed file (with an awful primary key), H 
; oer eae since RMS won't create an indexed file unless a KEY XAB is used. : 
; 869 0934 i Don't check that the output of an address or index sort is really 3 
; 870 0935 ! sequential and fixed-format. : 
. on : 
Gee Be : 
; 875 0940 ! If the file was not created, and the file is not empty, 3 
; 876 0941 ' set the EOF option to position to the end-of-file before writing records. : 
$ arr Beg ! Note that the EOF option is only allowed for sequential files. Thus, : 
; 878 094 ! for sequential files, the records will be appended to the file, 3 
; 879 0944 ! for relative files, the records will be appended to the file, 3 
3 rt poe? for indexed files, mass-insert gives better performance. : 
; aes boc9 i If this is removed, an error occurs for sequential and relative files. : 
; 88 +94 4 ! We may do this so that the user will not get unexpected results, and to : 
; See sr ; avoid any effects of the NEF and POS file options. : 
: He 0951 i PLS. If we can't insert records in an indexed file sequentially, we will : 
3 7 826 switch over to keyed inserts. : 
; 889 994 if ,FABCFABSV.CIFJ AND .FABLFABSL_STS] NEQ RMS$_CREATED 3 
: 891 56 IF _.FABCFABSB_ORG] NEQ FABSC_IDX | 
3 3 95 THEN : 
; 89 28 DDBCDDB_RAB+RABSV_EOF] = TRUE; 3 
: B98 360 | 
; +4 961 : if organization is poquans jet and the device is disk use MBC and MB | 
; +44 306 f there are more than 8 blocks available. Otherwise use MBF = 2. 
: 899 964 if .FABCFABSB_ORG) NEQ FABSC_SEQ OR 
3 965 -BLOCKE FABCFABSL_DEVJ, BEV$v_SQD; ,BYTE] OR 

J 
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; 30 366 nen -BLOCKE FABCFABSL_DEV], DEV$V_RND; ,BYTE) 
3 2 § ay eae RAB+RABSB_MBF] = MAX_MBF 

; 905 3 BEGIN 

a. 97 DDBLDDB_RAB+RABSB_MBC] = MAX_MBC; 

; 90 3f8 DDBLDDB_RAB+RABSB_MBF) = MAX_MBF; 

; 908 97 END; 

; 909 974 

: Bit 398 £ Gemnect te the Fa0 

: onnect to the 

3 aig 37s ! 

; 91 144 STATUS = SCONNECT(RAB = DDBCDDB_RAB+BASE_]); 

>; 9146 97 IF NOT .STATUS 

; 915 980 THEN 

3 2i8 981 NRETURN SOT BEDDD RABeR SHR_OPENOUT, DDBCDDB_NAME] 
s 91 at .DDBCDDB_RAB+RABSL— sTSJ, ‘soatopee RAB+RABSL_ §tv}); 
; 918 o38 

: 919 984 

; 920 0985 ' Save the IFI and FOP 

: 921 098 i 

; ¢ 098 DDB DDB_IFI] = .FABCFABSW_IF Hii 

, § 0988 DDBLDDB_ “FOP] = .FABLFABSL “FO ; 

; 924 0989 

; 925 0990 RETURN SS$_NORMAL; 

; 926 0991 +1 END; 


54 41 44 2E 00042 P.AAA: .ASCII \.DAT\ 3 


.EXTRN SYSSOPEN, SYSSCONNECT 
ZEXTRN SYSSCREATE, LIBSSET_FILE_PROT 
TEXTRN LIBS$_INVFILSPE 


O7FC 00000 .ENTRY SORSSOPEN, Save R2,R3,R4,R5,R6,R7,RB,R9,R10 ; 0216 
SE FD60 E 9E 9000¢ MOVAB -672(SP), SP ; 
D4 0000 CLRL = LAL + 0273 
E D4 00009 CLRL TOT_ALQ + 0279 
59 AB 95 00008 TSTB 43-89 ETX) : 0280 
0 12 0000 BNEQ 1 : 
6E 0180 F 3¢ 001 MOVZWL ff 84 TOT_ALQ : 
082 CB 94 00015 1$: CLRB.—s- 130 TX) > 0303 
0050 «8 00 6E 00 2c 0001 MOVCS #0, (SP), #0, #80, $RMS_PTR : 0320 
BO AD 5 6 F B MOVW #20483, S$RMS_PTR ; 
C6 AD F B MOVW #514, $RMS “Pras ; 
CE AD 0 F MOVW #514; $RMS"PTR+ : 
D4 AD : CE 9€ MOVAB FHC, SRMS_PTR+36 ; 
D8 AD FF CD OE A MOVAB NAM, SRMS~ PIR 40 : 
EO AD B9 oA 4 MOVAB P.AAA, $RAS_PTR+48 F 
€5 AD 04 4 MOVB #4, SRMS_PTR+53 ; 
02 58 AB 4 CMPB ggicTx), #2 > 0321 
4D BEQL $ ; 
B4 AD 40 BF gh 4F MOVZBL wb, FAB+4 ; 0333 
0060 8F 00 6E ee 00 C 34 2$ movCS #0, (SP), #0, #96, SRMS_PTR : 0329 
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Be $9: 78:28 Feat Soe hes soeaMti8 45.1 
424578 SRMS_PTR 

#1, $RMS 

FNA, SRMS_PTR+4 


#11293, $RMS_PTR 
PRO, $RMS_PTR+4 


(CTX), DDB 
CTX), I 


B), DDB 


(CTX), DDB 
#0, (SP); #0, #88, SRMS_PTR 


#22547, $RMS_PTR 
NAM+3 
NAM+11 


—&-~WO— Ux 
wee eet 
ao Venoo 


RB 
(R8), FAB+52 
4(RBS, FAB+44 
FAB 
#1, SYSSOPEN 
RO, STATUS 
RB 
FAB 
#2, SORSSBEST_FILE_NAME 
FAB+B, #98954 


#79, FAB+23 
#1, FAB+7 
(R8), FAB+S2 
(R85, FAB+44 


#1, SYSSOPEN 
RO, 5$ 


<yY 
an 


K 13 
vou=000- 1er$2p=198¢ 19:18:48 — ESGarSo°SneSsonansio 853; 


2 D5 001 é TSTL LRL : 
12 001 BNEQ $ : 
59 0 p 15A MOVL TT, _LRL 3 
F 15D BRB ifs ; 
59 0 D4 15F 9$ CMPL =s‘iT,,_LRL ; 
A 1 @ Bea. ~=séif8 ; 
1B 001 BLEQU 10$ ; 
59 1 6 MOVL. fT LAL F 
0080 cB 169 10$:  BISB2 a3 128(CTX) : 
0089 C : 166 11$:  MOVAB 128(CTX), RO ; 
EF AD 2 AO 91 001 CMPB #{R0), FAB+63 ; 
0 3 V7 BGEQU 12$ : 
02 ad EF AD 90 OO17A MOVB FAB+GS, 2(RO) ; 
01 CF AD 4 O17F 12$:  CMPB  FAB+31. #1 ; 
13 001 3 BEQL 13 ; 
60 2 88 or BISB2 #2, (RO) : 
07 F3 AD 4 €1 00188 13$: BBC #4. FAB+67, 14$ ; 
6E 0008 ce CO 0180 ADDL2 FHC+16, TOT_ALQ ; 
D 11 00192 BRB 18$ ; 
01 58 AB 9100194 14$:  CMPB  &8(CTX), #1 : 
08 13 00198 BEQL =s«d5$ ; 
50 001¢806C 8F 00 0019A MOVL #§ #1867884, RO : 
04 001A1 RET : 
50 00D8 ce D0 O1Ag 15$: MOVL  FHC+16, ALQ : 
15 12 OO1A BNEQ 17$ F 
50 co OAD 06 001A9 MOVL §§FAB+16, ALQ : 
OF 12 OO1AD BNEQ 17$ F 
05 FO AD 02 E1 OO1AF BBC #2, FAB+64, 16$ ; 
50 10 DO 001B4 MOVL #16, ALQ : 
05 11 00187 BRB 17$ : 
50 0180 ef 3¢ 00189 16$:  MOVZWL #384, ALQ F 
6E 0 £0 O1BE 17$:  ADDL2 Ava, TOT_ALQ 
56 14 AZ SE 001C1 18$: MOVAB 20( DDB) , ~“R6 
0044 8F 00 6E 09 2¢ O01¢9 movcS #0, (SPS, #0, #68, (R6) 
66 4401 8F BO rete MOVW #17409, (R6) 
04 A6 00010220 &F pO 001D2 MOVL #66080, 4(R6) 
1E Ab 94 OO1DA CLRB = 30(R6) 
3c AG BO AD 3 01D MOVAB FAB, 60(R6) 
CD AD 95 OO1E TSTB ——« FAB#+29 
at 1 1E BNEQ 19$ 
09 FO AD EO OO1E BBS #5, FAB+64, 19S 
04 Fs OA 04 €1 OO1EC BBC #4. FAB+67, 19$ 
4B OA 1 g 1F1 MOVB #16, 75(DDB) 
4A AT g 175 19$:  MOVB #2, 74(DDB) 
DD 001F9 PUSHL R 
000000906 00 1 FB OO1F CALLS #1, SYSSCONNECT 
4 AE 0 »D MOVL RO STATUS 
11 06 =A 5 BLBS srry 1$ 
7E 1c A? 0D A mova g(DDBS, -(SP) 
8 DD 208 PUSHL R 
1 DD 0021 PUSHL #1 
001¢109C _8F bp 1 PUSHL #1839260 
0348 1 BRW 6 
8 aE 78 AE AB 0021B 218 BISW2 KABPRO+8 PRO 
a B2 AD 3¢ 5 MOVZWL FABS2, 3(DDB) 
6 a7 B4 AD D MOVL  FAB+4, 16(DDB) 
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18-5¢ -1984 00:36: AX-11 Bliss-32 V4.0-74 

1 ~8ep-19 4 90:76:28 SORT32.SRC SoaRMSi9. 63351 

A 22$:  SOBGEQ 23$ 

D BRB bs 

F 238: RW ; 

é 4$:  MOVAB 132(CTX), R2 
TSTWw (Rd) 

9 BNEQ 25 

B MOVW LAL, (R2) 
CMPL RL, #65535 
BLEQU 25 
PUSHL #1867892 

D CALLS #1, SORSSERROR 

5 258 TSTB 89<CTX) 

a BEQL 8$ 

A MOVZWL (R2), USZ 

D PUSHL USZ 

F CALLS #1, SORSSALLOCATE 

6 OVL  156(CTX), DDB 

B MOVZBL B9(CTX), I 

F RB 7$ 

1 26$:  MOVW  USZ, 52(DDB) 

5 MOVL UBF, 56(DDB) 

3 MOVL (DDB), DDB 

C 27$: SOBGEQ I, 26$ 

fF 28$: TSTL 168(CTX) 

3 BNEQ 29$ 

5 MOVL TOT_ALQ, 168(CTX) 

A 29%:  MOVL 152TCTXS, DDB 

F CLRL = R2 

1 TSTL DDB 

3 BNEQ 30$ 

5 INCL R 

7 CLRW =: 129(CTX) 

30S: OVB 130(CTX), 129(CTX) 

PUSHL LRL_OUT_P 
CALLS #1, @LRC_OUT_RTN 

9 MOVL RO, STAT 

D BLBS STATUS, 31$ 

1 MOVL STATUS, RO 

3 31$ REC R2, 32$ 

9 BRW RS 

€ 32$: CLRW FABs2 

F MOVW #819 FABS22 

5 MOVAB 4(DDBS, R10 

9 MOVB (R10), FAB+52 
MOVL  4(R105, FAB+44 
CLRW FHC+10 

6 MOVCS #0, (SP), #0, #88, SRMS_PTR 

F MOVW #22547, S$RMS_PTR 

5 MNEGW a XASPROGS 

9 MOV 20 (DDB) R6 

p movcS #0, (SPS, #0, #68, (R6) 

5 MOV #17409, (R6) 

A MOVZWL #1056, 4(R6) 
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SORSRMS_10 16-Sep-1984 00:36: AX-11_ Bliss-32 V4.0-74 Pa 5 S' 
y042000 1eagee~ 1882 FS: F8:28 «| MATL Bh leg c3e NGO 7 4s oe 8 vt 
06 1 E BNEQ 50S ; ; 
02 EF AD if Es CMPB ss FAB+63, #2 : : 
CE AD Og gh EB sos Bitag 24. FAB+30 : 0783 ; 
0060 8F 00 6E ' 00 C al 208: movcS #0, (SP), #0, #96, SRMS_PTR : $783 ; 
19 AE 600 ef 0 FA MOVW #24578 SRMS_PTR : ; 
12. AE 1 BE 490 MNEGB #1, $RMS PTRF2 : : 
14 AE OOF4 cE E 004 MOVAB NA, S$RMS_PTR+4 : ; 
1A AE 1 BE AOA MNEGB #1, SRMS _PTR+10 : : 
1c AE OOF4 CE 9E 0040€E MOVAB NA, $RMS_PTR+12 : : 
D8 AD 19 AE 9 0414 MOVAB + 0799 ; 
Poe ae de Bette pole J! 
20 AE FF5SO CD OE Ooi MOVAB NAM, QNAM+16 + 0807 ; 
ES AD 94 00424 CLRB 3s FABS5 + 0808 ; 
£0 AD D4 004 7 CLRL = FAB+48 + 0809 ; 
BO AD 9F 0040A 52$:  PUSHAB FAB + 0819 ’ 
000000006 00 01 FB 0042D CALLS #1, SYSSCREATE ; : 
04 AE 50 DO 00434 MOVL RO. STATUS : ; 
SA DD 00438 PUSHL R10 : 0823 
BO AD 9F OO43A PUSHAB FAB ; 
000000006 00 0 FB 00430 CALLS #2 SORSSBEST_FILE_NAME : 
17 59 £9 00444 BLBC WAS_IDX, 53$ : 0828 
00010619 &F BB AD D1 00447 CMPL ABB, #67097 F 
OD 12 0044F BNEQ 53$ : 
001¢8050 8F DD 00451 PUSHL #1867856 + 0835 
000000006 00 01 FB 00457 CALLS #1, SORS$SERROR : 
07 B8 AD Es O04dE 53$:  BLBS FAB+B, 54$ + 0839 
7E B8 AD 7D 00462 MOVO FAB+8, =(SP) : 0842 
OOFO 31 00466 BRW é + 0841 
OA B7 AD 01 £1 00469 54$: BBC #1, FAB+7, 55$ : 0847 
00010619 8F B8 AD D1 0046E CMPL  FAB+B, #67097 : 
4A 12 00476 BNEG 56$ : 
50 08 AE 3c 00478 55$:  MOVZWL PRO, RO > 0865 
51 AE 3C 0047C MOVZWL XABPRO+8, R1 : 
50 51 CA 00480 BICLe R1, R ; 
OC AE 50 AAFA BF Ap 0483 BICW3 #-21766, RO, CHANGE_MASK : 
6 13 OO4BA BEQL 56$ + 0866 
08 AE 9F 0048C PUSHAB PRO + 0870 
10 AE 9F 0048F PUSHAB CHANGE_MASK ; 
SA DD 00492 PUSHL R : 
000000006 00 03 FB 00494 CALLS #3, LIBSSET_FILE_PROT : 
04 AE 50 DO 0049B MOVL : 
F 04 AE EB 0049F BLBS STATUS, 56$ : 0873 
000000006 8F 04 AE D1 004A3 CMPL STATUS, #LIBS_INVFILSPE ; 
15 13 O04AB BEQL 6$ : 
04 AE DD 004AD PUSHL STATUS : 0877 
SA DD 048 PUSHL R10 : 
1 DD 0048 PUSHL #1 : 
001C10A0 8F DD 0048 PUSHL #1839264 : 
000000006 00 4 FB 4BA CALLS #4, SORS$SERROR F 
03 CF OA 1 4C2 56$:  CMPB  FAB+31, #3 > 0884 
er 8B Ob boce at tee : oaa6 
£6 AD BS bere 57$:  TSTW aN eH : 0891 


sina RRO (ONES HEGHLAUGSRMEZB,, Po 


-Sep-1 SORT32.SRCJSORRMSIO. (5) 
0B 13 004C QL s«éS8$ : ; 
50 EF AD 9A 266 MOVZBL FAB+63, RO : : 
008A CB 6 AD 5 A3 00404 uae RO FAB+54, 138(CTX) : vee ; 
20 0080 (CB 9E 408 58$: MOVAB 128(CTX), RO + 0911 : 
1 02 AO 9A 004E MOVZBL 2(RO), RI : ; 
51 EF AD 91 004E4 CMPB—s«éFAB+63, R1 : ’ 
04 1€ O04E8 BGEQU 59$ : ; 
51 EF AD A O4EA MOVZBL FAB+63, R1 : : 
01 AO 51 9 OO4EE 59$: MOVB 1, 1(RO) : : 
05 12 O04F BNEQ go$ + 0912 ; 
02 AO 94 004F4 CLRB (RO) : 0914 3 
12 11 O04F7 BRB ges : ; 
51 02 AO 9A O04F9 608 MOVZBL 2(RO), R1 + 0916 ; 
51 EF AD 91 O04FD CMPB ss FAB+63, R1 : ; 
04 1B 00501 BLEQU 61$ : ; 
51 EF AD 9A 00503 MOVZBL FAB+63, R1 : F 
02 AO 51 90 00507 61$: MOVB  R1, 2¢RO) : ; 
01 58 AB 91 0050B 62$:  CMPB BB (CTX), #1 + 0917 : 
03 13 0050F BEQL 63$ : ; 
01 Ad 9% 00511 CLRB ~—-1(RO) > 0919 r 
14 B? AD 01 €1 00514 63$: BBC #1, FAB+7, 64$ + 0954 ; 
00010619 =F B8 AD D1 00519 CMPL  FAB+B, #67097 : ; 
OA 13 005 | BEQL  64$ : ; 
20 CD 6AD 91 005 CMPB  =—s- FAB+29, #32 > 0956 : 
04 13 00527 BEQL 64$ : ; 
19 A? 01 88 00529 BISB2 #1, 25 (DDB) + 0958 ; 
CD 6AD O95 005¢0 64$ TSTB +29 > 0964 ; 
OE 12 00530 BNEQ : ; 
09 FO AD 05 €0 00532 BBS #5, FAB+64, 65$ + 0965 : 
04 F3) OAD 04 £1 00537 BBC #4, FAB+67, 65$ + 0966 ; 
4B A7 10 90 0053c MOVB #16, 75(DDB) : 0971 : 
4A AZ 02 90 00540 65$: MOVB #2, 74(DDB) : 0972 : 
56 DD 00544 PUSHL  R6 : 0978 : 
000000006 00 01 FB 00546 CALLS #1, SYSSCONNECT ; ; 
04 AE 50 D0 00540 MOVL RO, STATUS : ; 
16 04 AE €8 00551 BLBS STATUS, 68$ : 0979 
7E 1¢ A? 7D 00555 MOVQ 28(DDBS, -(SP) + 0982 
SA DD 00559 66$ PUSHL R10 > 0981 
01 oD 00558 PUSHL #1 : 
001C10A4 BF DD 0055p PUSHL #1839268 : 
000000006 00 05 FB 0065 67$: CALLS #5, SORSSERROR : 
Oc A? B2 AD ge Ete 68$:  MOVZWL FAB+2, 12(DDB) + 0987 
10 A7 B4 AD 00 tay MOVL FAB+4, 16(DDB) ; 0988 
50 01 DO 00575 69$: MOVL #1, RO : 0990 
04 00578 RET : 0991 
3; Routine Size: 1401 bytes, Routine Base: SORS$RO_CODE + 0046 
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<y 
So 


H 8 8 0338 ! GLOBAL ROUTINE SORSS$RFA_ACCESS . 
; 930 baee 1 RFA: REF BLOCKCRAB$S_RFA,BYTE]; ! Addr of the RFA ; 
s 95) 995 1 LEN, i Length of record ; 
; 9 ¢ 996 1 ADR ! Address of record : 
; ¥ 997 1 ): NOVALUE CAL_ACCESS = : 
> 934 998 1 > 
3 929 999 1 !44 . 
3 930 1000 1! : 
3 HA 130) 1 FUNCTIONAL DESCRIPTION: : 
: a7) 1908 i This routine accesses a record by RFA, which is already in the RAB. ; 
: 941 1005 1 ! FORMAL PARAMETERS: ; 
; 94 1006 1! ; 
; 94 1007 1! RFA.raw.r Address of the RFA, — follwed by a file number ; 
> «944 1008 1! LEN.waw.r Address of returned ength , 
; 945 1009 1! ADR.wal.r Address of returned address : 
; 2e8 13i9 : CTX Longword pointing to work area (passed in COM_REG_CTX) : 
; 948 101g 1 ! IMPLICIT INPUTS: : 
3 949 1015 1! : ; 
> 950 1014 1! The DDB for the input file. : 
; «951 1015 1! ; 
3 926 1016 1°! IMPLICIT OUTPUTS: : 
; 1017 1! ; 
: 954 1018 1! NONE ‘ 
3-6 939 1019 1! ’ 
; 956 1020 1 ! ROUTINE VALUE: : 
: 957 1021 1! ; 
; 958 1356 1! Status code. ‘ 
3; 959 1023 1! : 
; 960 1024 1 ! SIDE EFFECTS: ; 
; 961 1025 1! : 
; 962 1026 1! NONE ‘ 
> 963 1027 1 !<- ; 
3; 964 1028 § BEGIN : 
: 965 Oe? EXTERNAL REGISTER : 
; 966 1030 2 CTX = COM_REG_CTX: REF CTX_BLOCK; : 
3; 967 1031 LOCAL ‘ 
; 968 1936 DDB: REF DDB_BLOCK, : 
3; 969 103 STATUS; : 
3; 970 1034 : 
: 997i Wee . 
3 692 1036 ! Determine whether the RFA is immediately followed by a file number. : 
3; 973 1037 2 i If so (because there is more than one input file), grab the DDB from the : 
; are 1338 array of DDBs, otherwise, just use the first (only) input DDB. ° 
; 976 1040 ir -CTXCCOM_NUM_FILES] LEQ 1 : 
: 977 1041 THEN : 
: 978 1966 DDB = .CTXCCOM_INP_DDB) ; 
: 380 ide ASSERT (COM_ORD_FILE EQL COM_ORD_RFA+1 
; +t ok DDB = TVECTORC.CTXCCOM_INP_ARRAYI, ARFACRABSS_ RFA,0,8,0)); : 
; 98 1069 : 
3: «984 1048 ASSERT_(RABSS_RFA EQL 6) : 


SORSRMS 10 
v04-00 


; 985 1049 
; 96 1050 
; 98 1051 
; 988 1026 
>; 989 105 

: 990 ee 
; 99) 1055 
; 99 1928 
105 

> 994 1058 
> Pee 1059 
> > 1060 
ve 1061 
; 998 1062 


; Routine Size: 


88 bytes, 


D 14 
e-Sep-1986 49:10:48 


DDBEDDB_RAB+RABSL _REAQ] = -REALO,0, 32,03; 
DDBCDDB~RAB+RABSW-RFAG] = .RFAL4.0.16,0): 


STATUS = $GET(RAB = DDBCDDB_RAB+BASE_)); 
IF NOT STATUS 
SORSSERROR(SORS$_SHR_READERR, 1 
.DDBCDDB_RAB+RABSL_STS4, 


LEN = RE Loe Ma ore td 3 
ADR = .DDBLDDB_RAB+RABSL_RBF J; 
END; 
0004 00000 
01 59 AB 91 00002 
07 #+1A sie 
52 009C CB 00 0000 
10 11 00000 
50 04 AC DO OOOOF 1$: 
50 08 CO 00013 
50 9A 00016 
52 O0A4 DB40 DO 00019 
50 04 AC DO OOOIF 2$: 
24 =A 60 00 bo 0ss 
28 Ae 04 AO B60 000 
14 <A2 99F 0002C 
00000000G 00 gt Fe 0002F 
16 0 €E8 00036 
7E 1€ A2 70 00039 
04 <A2 9Y9F 00030 
01 DD 00040 
001C10B2 8F ODD 4944 
00000000G 00 05 FB 0004 
50 3606 A2 =—3C «(OO04F 3S: 
51 3¢) =—6 A2_—s«é#DD-s« 00053 
04 00057 


Routine Base: SORSRO_CODE + OSBF 


AX-11 Bliss-32 V4. 
SORT32.SRCJSORRMS1 


! Copy the RFA 


' Read from the file 


DDBCODB_NAME], 
-DDBCDBB_RAB+RABSL_STVJ); 


SYSSGET 


SORSSRFA_ACCESS, Save R2 
B9(CTX), #1 


156(CTX), DDB 
RFA, RO 


6 (DDB) 
DDB 

282 

seneernnon 


DB), LEN 
DDB), ADR 


0- 
0. 


7 
B 


4 
3 


31 


Sete Ge Ge Se Se Se Ge Be Se Ge Se Se Ge Ge Ge Se Se Be Be Be Se Ge 


pr = 


+ 


14 

SORSRMS_10 16- =Sep-1984 00:3 AX-11 Bliss-32 V4.0-74 Page 29 SC 
v0e~000 1er8ep-188e F8iF8:28 4 Habart bo sae Ssdanein.o$3,1 oe 93 ve 
; 1000 1063 1 END 
; 1001 1064 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SORSRO_CODE 1559 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
; eeeenese Symbols -<------ Pages Processing 
: File Total Loaded Percent Mapped ime 
: _$255$DUA28: iE SYS LIBISTARLET.L32;1 9776 148 1 581 00:91.0 
3 ~$255$DUA28:CSORT32.SRCJSORLIB.L32;1 409 139 33 34 00:00.4 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:SORRMS10/OBJ=0BJ$:SORRMSIO MSRC$:SORRMS1O/UPDATE=(ENH$: SORRMS IO) 
; Size: 1555 00: $7%9 + 4 data bytes 

Run Time: 0: 

Elapsed Time: Ot: 54. 

Lines/CPU Min: 1686" : 


Lexemes/CPU-Min: 32397 
penecy Used: 468 pages 
Compilation Complete 


PMENT CORPORATION 
ND PROPRIETARY 


